/myimagemtx [iw 0 0 ih 0 0] def /expstr shortstr1 length 3 mul string def /shortstr2 32 string def /shortstr1 32 string def systemdict /setcmykcolor known {/doimage /cimage load def} {/doimage /bwimage load def} ifelse /cimage {iw ih 8 myimagemtx {currentfile shortstr1 readhexstring pop currentfile shortstr2 readhexstring pop pop colorexpand} false 3 colorimage} bind def /bwimage {iw ih 8 myimagemtx {currentfile shortstr1 readhexstring pop pop currentfile shortstr2 readhexstring pop} image} bind def /colorexpand {expstr 0 rgbclut 3 copy 7 -1 roll {get putinterval exch 3 add exch 3 copy} forall pop pop pop pop pop} bind def % Modified 5/26/89 by Dave Platt % Used by permission of David Gelphman, Adobe Systems Incorporated. % Copyright 1989 Adobe Systems Incorporated. All rights reserved. % Author David Gelphman, Adobe Systems % Monday, January 16, 1989 1:10:27 PM